home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 April
/
64er_Magazin_88-04_1988_Markt__Technik_de_Side_A.d64
/
space collaps
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
234b
|
6 lines
80 si=54272:forl=sitosi+23:pokel,0:next:pokesi+24,15:pokesi+5,8:pokesi+6,255
90 pokesi+4,23
100 s1=10:forz=1to35:s2=25:pokesi+1,s1:fory=1to30:pokesi+15,s2:s2=s2+2:nexty
110 s1=s1+4:nextz:s1=47:forz=40to1step-1:s2=38:pokesi+1,s1:fory=1to20
120 pokesi+15,s2:s2=s2+1:nexty:s1=s1-1:next:goto100